Top 10k strings from 20 Tons (1985)(Argus Press Software).tap in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Games / [TAP] /

Back to the directory listing

   2 y=y+(z$="z"
   2 x=x+(z$="p"
   2           
   1 zX?{ZI{Pardon?
   1 towin>MAXSCORE
   1 thisscore=thisscore+1
   1 thisscore=0
   1 thisscore<towin
   1 score=score+thisscore:
   1 oy=y+(z$="z")-(z$="a"):
   1 ox=x+(z$="p")-(z$="o"):
   1 load screen ls
   1 a$="                        Twenty tons.    Collect the rings through twenty screens , but avoid the 20 ton weights and the 'eaters'......................   Press a key to start.                    "
   1 `c(&$"f 8642f.,*jbd0hbd08t
   1 Table used: 
   1 Table size: 
   1 Start tape..
   1 SAVE SCREEN
   1 Pass 2 errors: 
   1 No Table space!
   1 NOOFSHAPES=NOOFSHAPES+1
   1 NOOFSHAPES=0
   1 MAXSCORE=MAXSCORE+1
   1 MAXSCORE=0
   1 LOAD SCREEN
   1 L(NOOFSHAPES):
   1 Interrupted
   1 H(NOOFSHApES):
   1 GENS20T   
   1 Executes: 
   1 DESIGN SCREEN
   1 Buffer size? 
   1 Bad Memory!
   1 <``~<ffffff<00<0006
   1 ;maxscore;
   1 ;ls;" ";#1
   1 ;"space 1 ";
   1 ;"design screen      keys a/z o/p";
   1 ;"Screen  ";ls;" ";
   1 ;"Please wait.":
   1 ;"Please place start pos (s) and  end pos (e)."
   1 ;"PRESS 1 - 5"
   1 ;"Loading Code";
   1 ;"5.  VIEW SCREENS"
   1 ;"4.  LOAD SCREENS < TAPE";
   1 ;"3.  SAVE SCREENS > TAPE";
   1 ;"20 tons.";
   1 ;"20  tons":
   1 ;"2.  DESIGN SCREEN";
   1 ;"1.  PLAY GAME";
   1 ;"** MAIN MENU **"
   1 ;" ALL OK."
   1 ;" ";score+thisscore
   1 ;"  ** Saving **      Please wait.":
   1 ;"           OUT OF TIME          ":
   1 ;"           GAME   OVER          "
   1 ;"             CRUSHED            ";
   1 20 TONS   #
   1 .   Press a key to start.                                            Twenty tons.    Collect the rings through twenty screens , but avoid the 20 ton weights and the 'eaters'.....................
   1 +(Z$="p")-(Z$="o")):
   1 *WARNING* 
   1 *HISOFT GENS2 ASSEMBLER*
   1 *(SCREEN-1
   1 (thisscore
   1 "start on screen (1-20) ";ls:
   1 "save screen no(1-20) ";screen:
   1 "load screen (1-20)";ls:
   1 "SCORE TO FINISH (
   1 "Press C continue or Q quit ";y$
   1 "Load screen ?(y/n) ";y$:
   1 " OK to save? (Y/N) ";Y$:
   1  max) ";towin
   1  main menu
   1  P Cooke                                                    Oct 1984
   1  Copyright HISOFT 1983
   1  5210    10
   1   All rights reserved
   1                               20 TONS 
   1                                                                        w